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About this book 


The programs inthis book are — 
written in a standard version of 
BASIC and there are conversion 
lines to type in for most of the main 
types of home computers. Look 
down the left-hand side of the 
program for the symbol for your 
computer and then look at the list of 
changes for the correct version of 
that line. The symbols for the various 
computers areasfollows: _ 

4 Commodore 64 and VIC 20 

* BBC and Electron 

spectrum 

e Apple 

= TRS-80 (extended BASIC version) 


About the games 


The games in this book are very 
simple. They are intended to help 
you get used to your computer and 
to the BASIC language by typing in 
listings, debugging them and seeing 
how they work. The programs do 
not contain graphics or sound as 
these vary so much from computer 
to computer, but you can try adding 
these. | 

You can change and adapt the 
games as muchas you like. There 
are suggestions for ways of doing 
this next to each program and you 
can experiment with your own ideas 
~ as well. This way you can use the 
games in this book as a basis for 
longer, more complicated games of 
your own. 


Micropuzzle was written by Les Howarth 
and Monster Wrestling by Adrian Hall. 


Illustrated by Rob McCaig, Sue Walliker, 
Martin Newton and Graham Smith. 


2 Designed by Roger Priddy 


Typing and running the 
programs 


Remember, even short programs 
can be quite difficult and time- 
consuming to type in correctly. 
Check each line as you go. It is so 
easy to make mistakes, even if you 
are quite experienced. When you 
have typed in the whole listing, 


check it again, making sure you 


haven't missed any lines, spaces or 
punctuation. 

To start the game, type RUN. Read 
the introduction to the game first so 
that you have some idea of what you 
are supposed to do before you start. 
If the program doesn't work 
properly, it is quite likely that there 
is a mistake in it somewhere, so LIST 
the program and check again. 

When the game is over, the 
computer may ask if you want to 
play again or say something like 
BREAK in 200, in which case you 
must type RUN to play again. 


Changing the speed 


Some games depend on the speed 
of both your reactions and your 
computer. You may find you need to 
adjust the speed. You will find 
instructions for doing this next to the 
program listing. 


First published in 1984 by Usborne 
Publishing Ltd, 20 Garrick Street, London 
WC2E 9B]. | 

© 1984 Usborne Publishing Ltd 


The name Usborne and the device © are 
Trade Marks of Usborne Publishing Ltd. 


Towerof Terror | 


Your mouth is dry, your legs are shaking and your heart is thumping — you’ve entered 
the Tower of Terror... 
a Press G to move through the rooms. Agh!! there’s a skeleton, then a ghost, thena 
headless axeman! With each fresh shock your pulse rate rockets. 
Will you go on (G), or retreat (R) to recover a little? Watch the time — you’ve only got 
until midnight to reach the top of the Tower and the coveted Treasure. Watch your 
pulse rate too. Madness takes over when it reaches 150 and nothing can stop you 


leaping to your doom out of the window. 


10 GOSUB 470 

20 LET R$="GO0D LUct 
30 LET RM=0 

Ox 40 LET H=9:LET M=IN 
S0 LET P=50 

) CLS:PRINTsPRINT 

) PRINT "TOWER OF TERROR" 


Try changing the pulse 


TRND (1) #10) #1¢ rate limit. 
i )t ore it 


Can you work out how 
to add more rooms too? 
) PRINTSPRINT R$ 

100 LET R$=""sLET FL=INT(RM/S 
LET R=RM-FL#G+1 

) PRINT:PRINT "YOU ARE ON” 
0 IF FL=0 THEN PRINT "THE GROUND FLOOR" 
0 IF FL=& THEN PRINT "THE TOP FLOOR” 

QO IF FL>0 AND FL¢& THEN PRINT “FLOOR “SFL 
0 PRINT "IN ROOM "sR 

Q PRINT:PRINT "THE TIME IS “:Hs". "eM 
) PRINT:PRINT "YOUR PULSE RATE IS " 


! py" 


See if you can add more 


ellen iat nasties and change 
oO) TE 3 2 z 
| inbe IF RM=S0 THEN GOTO 350 their shock ratings. 
Mxx210 LET TR=INT(RND (1) #9+1) 


0 IF RND(1)%.6 THEN GOSUB 420 

G PRINT:PRINT “RETREAT OR &O ON (R/G)" 

240 LET I$=INKEY$ 

F [$¢2>"G" AND [$<>"R" THEN GOTO 240 

F [$="G" THEN GOSUB 400 
T$="R" THEN LET RM=RN- 

F RM=-1 THEN LET RM=0 

LET M=M+INT(RND(1)#3+1):1F M59 THEN LET M=M-&0 

IF H=12 THEN GOTO 340 

IF Pe1S0 THEN GOTO 380 


] 
] 

270 IF 1:LET P=P-3 
I 


tLET H=H+! 


320 IF P<40 THEN LET P=40 
MXX330 IF FL=TR AND RND(1) 20.5 THEN GOSUB 520 ( Whatisthe Treasure of 
340 GOTO 40 Tower and how did it 
a? 
350 PRINT "WELL DONE "STOP Gut Chee, | 7 eee 


you can add your ideas 


PRINT:PRINT “IT'S MIDNIGHT!" to the program. 


) PRINT:PRINT "TOO LATE! ":STOP 
PRINT "YOU HAVE GONE MAD AND" 

S90 PRINT "LEAPT FROM A WINDOW! ": STOP 
IF GF=1 THEN LET P=P+S#2:LET R$="AAAHHHH!" 
) LET P=P-1:LET RM=RN+1:RETURN 

) LET TY=INT(RND (1) #3+1) 

LET WS=G${TY) 

LET S=INT(RND(1) #5) +FL+TY#2 

2 PRINT:PRINT "AHEAD YOU SEE A ";WE 

0 LET GF=1:RETURN 

DIM 6$(3) 

) LET G$(1)="SKELETON" 

LET 6$(2)= "GHOST" 

) LET G$(3)="HEADLESS AXEMAN" 

RETURN 


v20 LET R$="YOU FELL THROUGH A TRAP DOOR'":LET RM=RM-S:LET P=P+10:RETURN 


} 


mi 
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How it works > 


10: Goes to initialization section 
to read in data. 


30: RM is the room yow’re in. 


40-50: Set the starting time and 
pulse rate. 


om 


90: Prints any comment stored in R$. 


100-160: Work out floor and room 
you are in from value of RM and ; 
print this information. . 


170-180: Print other information. 


190: GF is a flag which is set 
when there is a nasty ahead. 


200: Checks if you’ve reached 
the last room. 


210: Selects room for trap door. 


220: Random chance of there 
being something ahead. Goes to | 
subroutine if there is. 


230-280: Get player’s input and : 
act on it. 


wv 


290: Increases time. . 
300: Tests for midnight. 
310: Tests if pulse rate is too high. 


330: Checks if you are in room 
with trap door. 


400-410: Move forward routine. 
Increase pulse if there’s a nasty. 


420-460: Select a type of nasty 
and its shock rating. 


470-510: Read in data for start of 
game (initialization). 


520: Trap door subroutine. 


Conversion lines 


210,229,290,550,420,440 Replace 

RND(1) with RND 

M@ 40,210,220,290,330,420,440 Replace 
RND(L) with RND(O) 

A 60 PRINT CHRE(147) PRINT: PRINT 


@ 40 HOME: PRINT:PRINT : 
Ww 240 LET IS=INKEY$ (0) ° 
A 240 GET I$ : 


@ 240 [$=""sIF PEEK (-16384) 3127 
THEN GET I$ 
KX 470 DIM 6$(3,15) 


increible Mu lc 


co 


(= 


attempt to score that number. 


Increase the value of SP in 
line 10 to speed up the 


Q LET TS=O:LET I$="0":LET SP=3 
Q LET N=INT(RND (1) #50) +10 

0 CLS:PRINT 

Q PRINT "SKULLS OF THE PYRAMIDS” 
0 


70 PRINT "TO GET "sN:PRINT 

BO LET K=3000:605UB 540 
CLS:LET Y=2 

FOR I=1 10 4 

LET AS=STRE(I) LET X=O+2#] 
GOSUB 340 

130 NEXT I 

LET A$="*"sFOR I=! 10 3 

LET Y=2+2#] 

FOR J=1 10 [+3 

170 LET X=7-1+2#J 

GOSUB 360 

) NEXT J 

NEXT | 

LET Y=14 

FOR I=) TO 9:LET AS=STRS$(T) 
LET X=1+24]:G05UB 960 

NEXT I 

LET $=0 

260 FOR J=1 10 5 

70 LET A$="CHOOSE ROW" 

BO LET X=0:LET Y=0:G0SUB 940 
LET I$=INKEY$ 

00 IF I$=""THEN GOTO 290 

10 LET R=VAL(I$) 

20 IF R<t OR R>4 THEN GOTO 290 
) LET Y=3:LET K=400;:LET X=6+24R 
LET F=0 
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A mind without a body - that’s all you’ve been since that terrible accident all 
those years ago, during the building of The Pyramid. 

It takes all your mental energy to satisfy the Evil Spirit Master’s demands. 
Every day he forces a number into your mind (if only you could turn him off!). 
You must will skulls to fall off The Pyramid onto the numbered stones below inan 


Press 1, 2,3 or 4to release a skull. You must use five skulls each go—nomore, 
no less. Score the right number and rid yourself of the Curse of The Pyramid. 


How the program works 


Bence = 
7 


S 


10: Sets variables at beginning of 
game. 


20: Chooses number that player 
must score. 


30-80: Print starting message and 
wait for player to see it. 


90-240: Print out pyramid and the 
numbers at the top and bottom of it. 


See if you can 

replace the skull 
symbol witha 

graphics character. 


Add nasty thudding 
noises as the skulls 
bump down The 
Pyramid if you can. 


250: Sets score to zero. 
260: Sets number of skulls. 


270-280: Print message top 
left of screen. 


290-300: Wait for key to be 
pressed. 


310-320: Check if key pressed 
is between 1 and 4 and go 
back to wait again if it isn't. 


330: X and Y are position of 
skull. This line sets them 
at the top of the pyramid. 


340: F is a flag which 

records whether previous 
move was a sideways 
bounce. 


Bet you can’t work 


? % : 
out how to add more “ors ris Oe : 
skulls each go. : SEB sen oe 

et GN 


350 LET A$="0" 350-370: Print the skull and wait. 
360 GOSUB 540 


370 GOSUB 340 


380 LET Ag=" ":GOSUB 540 390: Choose which way to 
; bounce (if value of F allows 
mxx390 IF F=0 AND ¥C13 THEN LET X=X+SGN(RND(1)-.9) sideways bounce). 


400 LET Y=Y+isLET F=1-F 
410 IF ¥<14 THEN GOTO 300 
490 LET S=S+#{X-1)/2 410: Checks if skull has reached 


the bottom. 
430 LET X=15:LET Y=0 


= n,n 420: Works out d din 
44Q LET A$=STR$(1) +" 3" +STR$(S) on cohinan bait aelskas Ee 
450 GOSUB 540 


NEXT | 430-450: Print out score. 

LET K=1000:GQOSUB 340 470: Waits. 

LET D=ABS(S-N)sLET TS=T5+D 480-500: Add difference between 
CLS: PRINT: PRINT score and number required to 


PRINT "YOUR RATING IS NOW "TS total score. Clear screen and 


print score. 
IF D>t THEN LET K=3000:GOSUB 540:G0T0 20 


M" m 510: If diff i ter th 
PINT "AND YOU CAN 6D FRE po cope a 


FOR T=1 TO K STEP SP:NEXT T 520: Prints winning message. 


540-550: Subroutine to make 
computer pause for length of 
time depending on K. 


380: Remove the skull. 


400: Moves skull down one row. 


560-570: Subroutine to move 
cursor to position X,Y on the 
screen. 


— 


570 RETURN 


Don’t suppose 
you’re clever 
enough to change 
the limits of the 
number to be 
scored. 


Conve ines 

20,390 Replace RND(1) with RND 

@ 20,390 Replace RND{1) with RND(9) 

@ 30,90,490 Replace CLS with HOME 

& 30,90,490 Replace CLS with PRINT CHR$(147) 

% 290 LET I$=INKEY$(0) 

@790 I$="":IF PEEK(-16384) 3127 THEN GET I$ 

429) GET I$ 

XX560 PRINT AT Y,XsA$ 

@540 VIAB(Y+L):HTAB(X+L) PRINT AS 

45460 PRINT CHRE(19)ssFOR LL=1 TO Y: 
PRINT:NEXTsPRINT TAB(X) 3 A$ 

M560 PRINT@ Y#s2+i, As; 


Ye, 
Zi 
ee ties 
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Monster Wrestling 


Monster wrestling is a sport for lunatics! Which doesn’t say much for you-—the 
brain in charge of this hulk of bone and muscle which is about to take on some ofthe 
nastiest monsters in the Universe. 

As brain, you must do a lot of quick and accurate calculations. You must work out 
the muscular effort required to hold off the monster, for instance, and this involves 
multiplying the size of the monster by the distance it is away from you. 

If the numbers look too difficult, you can press the Panic Button (key P). Youmust 
then work out how much adrenalin the body needs to survive the crisis, by 
dividing heartbeat increase required by oxygen supply. Take care though, over- 
use of the Panic Button puts too much strain on the heart and will eventually cause 
a black out. 

To live to fight another match, you must survive 12 rounds against the monster. 


How the program works 


20: Sets number of panics used to 
zero. 


30-60: Set upper limits for size of 
monster and distance away. 
+ 70: Sets number of rounds. 
mxx90) N 
mx90) N 
+ 
+ 


80: Sets monster size. 


j 

T(RND (1) #¥+#X) 
T(RND (1) #K+K) 
0.5 90: Sets distance away. 


100 


110 0.5 100-120: Increase upper limits for 
120 LET K size and distance by 0.5 each 


round. 

er 210-220: Ask f dgot 

; -220: Ask for answer and go to 
140 PRINT aheisinst ue 
150 PRINT "SIZE OF MONSTER: ": peer ; 3 

: If answer incorrect, jumps 

160 PRINT 6 down program for losing 
170 FRINT message. 
180 PRINT "DISTANCE AWAY: °: 
190 PRINT I . F 
200 PRINT 260: Goes back for next round. 


210 PRINT "MUSCULAR EFFORT? “; 270-310: Winning message if you 
220 GOSUB 576 survive 12 rounds. 


250: Message if round won. 


230 IF Z2<>6#] THEN S070 320 330-380: Losing message. 

240 CLS If you keep losing 
250 PRINT "MONSTER KEPT AT BAY” you'd better slow the 
260 IF NC11 THEN GOTO 75 __ Program down by 
270 PRINT "PHEW!!! '-THE MONSTER" weg yagi 
280 PRINT "IS TIRED AND HAS GONE TO" 
290 PRINT "LOOK FOR ANOTHER VICTIM," 
300 PRINT "YOU SURVIVE TO TELL THE TALE 
310 STOP 

320 CLS 

330 PRINT "YOU HAVE BEEN CRUSHED" 

340 PRINT "TQ & PULP IN THE" 

350 PRINT "MONSTER'S HUGE ARMS" Deswnabet it the wane 


360 PRINT is too easy for you. 
370 PRINT "YOU SURVIVED "sN:" ROUNDS" 
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CLS 

LET WA=INT(RND (1) #941) 
J LET WY=INT(RND (1) #9+1) 

LET W=WK#WY 

LET P=P+] 

IF P=4 THEN GOTO 700 


400-410: Set oxygen supply and 
amount of adrenalin needed. 


420: Sets heartbeat increase. 
430-450: Increase panic count, 
print warning after 3 and end 
game after 4. 


460-510: Print panic messages 


IF P=3 THEN PRINT "YOU ARE SEEING STARS" 2n4¢ ask fox answer. 


) PRINT "PANIC ON! !" 
PRINT 
PRINT "HEARTBEAT INCREASE: "3W 
PRINT "OXYGEN SUPPLY="3 WX 

) PRINT 

PRINT "AMOUNT OF ADRENALIN? "s 

LET G=100 

BOSUB 380 

IF 2¢oWY THEN GOTO 320 

CLO:IF N¢ii THEN GOTO 75 

) GOTO 270 
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LET AS=INKEY$ 
IF A$=CHR$(13) THEN GOTO 480 
IF A$="P" THEN GOTO 390 


Make it harder for 
LET Q=0 yourself - find out how 


LET 7$="" toincrease the number } 600: Checks if key pressed is 
of rounds. RETURN (CHR$(13)). If so jumps 


520: Sets value of Q for start of 
count at lines 650-660. 


530: Goes to answer subroutine. 


540: If answer incorrect, jumps 
back to losing message. 


550-560: If correct, go back for 
next round or winning message. 


570-690: ANSWER SUBROUTINE. 
570: Sets count to zero. 


580: Sets aside memory for Z$. 


590: Checks for key press. 


down to line 680. 


610: Checks if P key pressed and 
if so, goes to panic routine. 


IF VAL(A$)=0 AND A$<>"O" THEN GOTO 450 


PRINT A$: 
) LET Z$=7$+A$ 
LET Q=Q+] 


GOTO 590 
LET Z=VAL{Z$) 
RETURN 
) CLS 
710 PRINT "YOU BLACKED QUT” 


620: If no key pressed, jumps 
down to increase count Q. 


630: If key other than RETURN or 
P pressed, it is printed. 


640: Z$ is all keys pressed this round. 


650-660: Time loop. If Q reaches 
1000 before key is pressed, jumps 
up to losing message. 


670: Goes back for next Key press. 


680: Converts numbers in string 
Z$ to values it can put in Z. 


710: Losing message for over-use 


Conversion line 


A 46,2 


4,320,390,550,700 Change CLS t 


Nat hee 


@ 40 ,240,320,390,550,700 Change CLS te 
XX80,90,400,410 Change RND(1) to RND 
MB 80,90,400,410 Change RND(L) to RND{O) 


520 
Kx580 
W950 
AS9() 
@590 
E595 
Xx597 
Kxo00 
X¥o 10 
L630 
Wrisv 
4XXM@L40 


LET Q=400 

LET Z$="0Q" 

LET AS=INKEY$(1) 

GET A$ 

A$=""s IF PEEK (-16584)>127 THEN GET A$ 
IF A$="" THEN GOTO 450 

PAUSE 40 

IF A$=CHRS(13) THEN PAUSE 20:G0TD 680 
IF A$="P" THEN PAUSE 30:G0TO 390 
PRINT AS;:PAUSE 15 

IF Q=1000 THEN GOTO 320 

JF Q=250 THEN GOTO 320 


Jaws . 
Mmmmmm... people do taste yammy! But, with The Hunter forever on your tail, it’s 
difficult to get close enough to catch them. 

You are J (for Jaws) and you can move around by pressing Keys A, Z, Nand M. See 
how many Ps (people) you can eat before H catches you. There’s a snag (of course). 
Each time you succeed in catching and devouring a delicious human being, you getso 
excited you can’t remember which Key does what. 


How the program works 


KE10 DIM ME(12)sDIM K$(4):GOSUB 660 10: Sets aside memory space for the 

grid. Goes to subroutine to read in data 

20 LET S=0:LET T=0:LET 6=0 for grid. 
20: Sets variables to zero for start. 
30 LET U=i 
30: Sets how often hunter moves. 

40 LET K$(1)="A"SLET K$(2)="M" 
50 LET K$(3)="2":LET K$(4)="N" 40-50: Set directions in which keys 
move. 


60 LET PX=2:LET PY=2 


70 BOSUB 4600 60: Sets starting position for Jaws. 


80 GUSUB 490:G0SUB 440 70: Goes to subroutine which prints out 
90 LET NX=PX:LET NY=PY grid. 

Ww A@!00 LET IS=INKEYS 
110 IF I$=K${1) THEN LET NY=NY-1 80: Goes to subroutines which choose 
120 IF I1$=K$(2) THEN LET NX=NX+1 positions for hunter and person. 


130 IF I$=K$(3) THEN LET NY=NY+1 


: : Pa be 
140 IF 1$=K$(4) THEN LET NY=NX-! 90: Sets Jaws’ position to new position. 


190 CET Wenn eLET VENTE GOGUS 550 100-140: Calculate new position of Jaws 
160 IF F=1 THEN GOTO 230 depending on which key pressed. 

170 LET X=PXsLET Y=PY:LET Ag=" " 

180 GOSUB 440 150: Checks this new position is not a 
190 LET X=NK:LET Y=NY:LET Ag="J" wall. 


200 GOSUB 640 


160: Ifiti ll, don't 
210 LET PX=NX:LET PY=NY 60: If it is a wall, don’t move 


220 IF PX=TX AND PY=TY THEN GOSUB 340 170-180: Print space at Jaws’ old 
230 IF PX=GX AND PY=GY THEN GOTO 280 position. 
MBXx240 IF RND(1)>U THEN GOSUB 370 
250 LET X=14:LET Y={2:LET AS=STR$(T) 190-200: Print J at Jaws’ new position. 


260 GOSUB 640 
270 LET G=6+1:G07T090 


280 FOR P=! TO 2000:NEXT P 220: Checks if J landed on P and if so, 
goes to subroutine. 


210: Sets Jaws’ position to new position. 


I dare you to make 
the hunter move 
more often. 


230: Checks if J landed on H and, if so, 
goes down program to end game. 


240: Moves hunter. 


Conversion lines ZB 250-260: Print score so far. 


be’ 
ZE10 DIM M$(12,16) DIM K$(4) sGOSUB 1 pA 4 


W100 LET IS=INKEY$(0) 270: Increases number of moves and 


@100 1$="":1F PEEK (-16384) 127 THEN GET I$ goes back for next one. 
A100 GET IS 7 280: Pauses so you can see if you’ve 
£3240, 390, 400,550,560 Replace RND(1) with RND been caught. 


240,390, 400,550,560 Replace RND(1) with RND(O) 

@290,600 Replace CLS with HOME 

(290,600 Replace CLS with PRINT CHR$(147) 

XX530 LET FeO: IF MS(Y,X)¢>" " THEN LET Fel 

Xx640 PRINT AT Y,X3A$ 

@640 VTIAB(Y) sHTAB(X) PRINT AS 

A640 PRINT CHRS(19);:FOR LL=1 TO Y:PRINT:NEXT:PRINT TAB(X) ; AS 
MBG40 PRINT@ Y#32+X, AS; 


‘ 


@A 290 CLS:PRINT "YOU HAVE BEEN CAUGHT!" 
300 LET S=INT(10000#(T/G)):PRINT "YOU SCORED "35 
310 PRINT:PRINT "ANOTHER GO? (Y/N)" 


| 320 INPUT A$:IF A$="Y" THEN GOTO 20 
330 STOP 

340 LET T=T+1:LET U=U-0.03 
350 GOSUB 390:GOSUB 490 


360 RETURN aot 
370 LET X=6X:LET Y=GY:LET Ag=" "  —= 
380 GOSUB 640:GOSUB 440:RETURN 

MB XX390 LET K1=INT(RND (1) #4) +1 

mixx400 LET K2=INT(RND (1) #4) +1 
410 LET TS=K$(K1) 
420 LET K$(K1)=K$(K2) :LET K$(K2)=T$ 
430 RETURN 
440 GOSUB 550 
450 IF X=TX AND Y=TY THEN GOTO 440 
460 LET GX=X:LET GY=Y 
470 LET AS="H":GOSUB 640 
490 RETURN 
49 GOSUB 550 
500 LET TX=X:LET TY=Y 
510 LET AS="P"sGOSUB 640 
520 RETURN 

XE 530 LET FoOsIF MIDS(M$(Y) ,X,1)¢>" " THEN LET Fel 

540 RETURN 

MBXX550 LET X=INT(RND(1) #14) +2 

MBXK540 LET Y=INT(RND(1) #9) +2 

570 GOSUB 530 

580 IF F=1 THEN GOTO 550 

590 RETURN 

@A 600 CLS:LET X=! 

b10 FOR Y=1 TO 12:LET AS=NS(Y) 

620 GOSUB 640:NEXT Y 

630 RETURN 

1@ a4) PRINT TAB{X,Y)3A$ 


650 RETURN 

660 FOR I=1 TO 12:READ M$(1):NEXT | 
670 RETURN 

680 DATA “o000000000000000" 

690 DATA "0 Q" 

700 DATA "0 0 000 00 000 O° 

710 DATA "0 0 0 Q" 


720 DATA "0 0 0000 0 0 0" 
730 DATA "00000 00 0" 
740 DATA “0 00 0" 
750 DATA “00000 000" 
760 DATA "0 0 00 0 000 0 0" 
770 DATA “O Q" 
780 DATA “Od00000000000000" 
790 DATA "PEOPLE EATEN: =" 


290-330: Print message and score if 
Jaws is caught. Ask if player wants 
another game. 


Skeleton speech 
bubble 
Score depends on 
number of people 
eaten and number of 
moves. 


340-360: Subroutine which increases 
score and chance of hunter moving and 
goes to other subroutines to change 
keys round and set new person position. 


370-380: Subroutine which removes 
hunter from old position and prints him 
in new one. 


390-430: Subroutine which changes 
keys around. 


440-480: Subroutine for printing hunter, 
using another subroutine to choose a 
random position for him. Line 450 
checks position chosen does not 
already have a person in it. 


490-520: Subroutine for printing person, 
using another subroutine to choose 
random position. 


530-540: Subroutine which checks if 
position X,Y coincides with a wall. If it 
does F is set tol. 


550-590: Subroutine which chooses a 
random position and checks it is not a 
wall. 


600-630: Subroutine which prints out 
grid. 


640-650: Subroutine which prints at 
position X,Y. 


660-790: Subroutine which reads in data 
for grid. 


These lines make the grid. 
You could change it by 
drawing a new grid on 

squared paper and 

copying it into the 
program using O for walls 
and spaces for passages. 


As chief assistant to Superwitch, your job is to fly across the land on your broomstick 
collecting fresh ingredients for her putrid potions. You will know exactly what to 
collect each time because she transmits her revolting recipes directly to your 
computer screen. 

Ingredients such as T (Toe of Newt) and B (Brain of Bat) flash past beneath youas 
you fly. Press any key to swoop down and pick one up (you must land right on top ofit 
to doso). Take care, some of them could be the Broomstick Snatcher in disguise. If you 
land on her, you'll lose your stick. (Luckily you start the game with three spares. yYou 
must collect ee you need before you get to the Cauldron or Superwitch will 
notbe pleased with you.. 


10 GBOSUB 700:GOSUB 420 
20 LET NW=4:LET M=O:LET FM=50 
30 GOSUB send H=NH 

40 GOSUB 5 30: His your height above the 
50 LET EF= 5: LET FF=0:LET HH=H ground. NH is your new height 
b0 FOR I=1 TO 4sLET G(1)=0:NEXT I after a dive. 

70 FOR I=! TO 4:LET AS=PH{1)+":"sLET tal 
80 LET Y=1+I;GOSUB O10:NEXT I : 
90 GOSUB 490:GOSUB 430 s 
{00 IF M=FM THEN GOTO 250 

110 IF EF={ THEN GOTO 230 

Mm 20,4F INKEYS(O)="" THEN GOTO 90 
130 oe HH=H-1:GOSUB 510 

140 GOSUB 490:G0SUB 430 

150 LET H=HH 


How the program works 


20: Sets up variables. (See if you 
can work out what they are.) 


50: EF and FF are flags which are 
set if game is finished. HH isa 
variable for holding intermediate 
heights on the way up or down. 


60: G(_ ) counts how many of each 
type of object you’ve picked up. 


70-80: Print recipe. 


Too hard for 
you? Make the 
game easier by 


90-120: Move “ground” and objects 
across screen until a key is 
pressed. 


_ rer + i i th Fe 
160 IF H>O THEN GOTO 150 value of FM in line 130-160: Keep ground and objects 4 
170 IF P=17 THEN GOSUB 320 premiere moving and move witch down to : 
1g) IF FF=1 THEN GOTO 240 Sanaa grownd level. B 


190 GOSUB 530 start and the 170: If P=17 then witch has landed 


200 LET HH=H+1:G0SUB 510:G0SUB 490  \ Sameron. on object. 4 
210 LET H=HH:IF H=NH THEN GOTO 90 180: Checks flag for end of game. 4 
220 GOSUB 4306070 200 200-220: Move ground and objects | 
230 LET oe DONE! eon i. WITH past until witch reaches new | ie 
4 height. ts 


050 LET g="T00 LATE!" 230-270: End messages. 


260 LET X=1:LET Y=15:G0SUB 610 
270 STOP 

280 LET AS="W"SLET X=P:GOSUB 610 
290 FOR T=1 TO 1000;NEXT T 


280-310: Subroutine which shows 
W if object is Broomstick Snatcher 
in disguise. Increases NW and sets 
FF if all broomsticks used up. 


320: Subroutine which checks if 


300 LET NW=NW-1:IF NW=O THEN LET a Om vou tanded en Brotmatick 
310 RETURN Snatcher. 
320 IF W=1 THEN wi 280: RETUR i> 330-350: Increase number of object 


R collected and print new total on 
screen. 


330 LET G(R)=G(R) 
340 LET AS=STRS( a )sLET X=17 
350 LET Y=1+R:GOSUB 610 


370-420: Check if all ingredients 


ssa et Poisiconue 430? ieee for this recipe have been 
370 LET F=0 graphics symbols. . 


380 FOR I=1 10 4 
390 IF G(I)>=N(I) THEN LET FeF +l 


(AN 
[Ia ie 1 Lia a ar 


Why not change the 
ingredients? 


) Mn 


400 NEXT 1 

410 1F F=4 THEN LET EFI 

420 RETURN 

430 LET GD=GD+1:IF GD=6 THEN LET GD=1 

440 LET A$=G$(GD):LET X=1:LET Y=15:GOSUB 410 

450 LET AS=" "LET X=PsLET Y=14:GOSUB 610 

460 LET P=P+isIF P=20 THEN GOSUB 55 

470 LET X=P:LET A$=C$:G0SUB 610 

490 RETURN 

490 LET A$="-Y-=":LET X=16:LET Y=14-HH 

500 GOSUB 610:RETURN 

S10 LET AS=" "LET X=2OsLET Y=14-H 

520 GOSUB 610:RETURN 

m<x530 LET NHEINT(RND(1) #5+3) 

An 540 RETURN 

mxx550 LET R=INT(RND(1) #4) +1 

mxx540 LET We0sIF RND(1)>0.8 THEN LET We! 

03570 LET CS=LEFTS(P$(R) ,1):LET P=! 

590 LET MeM+! 

590 IF M=FM THEN LET C$="CAULDRON" 

600 RETURN 

b10 PRINT TAB(X,¥) sAS:RETURN ¢ 

@4620 CLS:PRINT: PRINT 
630 PRINT "THE POTION MUST HAVE": PRINT 
640 FOR I=! TO 4 

mcxh50 LET NSINT(RND(1)#3)+2:LET N(I)=N 

660 PRINT:PRINTSN3" “3PS$(I) 

670 NEXT I:PRINT:PRINT 


430-480: Print new section of 
ground and move the object along 
to position P. If object is past the 
witch (i.e. P=20, then choose a 
new object). 


7 
; 
| 
' 
4 


490-500: Print witch. 
510-520: “Unprint” witch. 


530-540: Choose new height for 
witch. 


550: Chooses an object. 


560: Random chance of object 
being Broomstick Snatcher. 


570: Puts first letter of object in C$ 
and sets position P to 1. 


580: Increases object counter, M. 
590: If M equals maximum number 


of objects allowed, then C$ 
changed to “CAULDRON”. 


610: General subroutine to move 


e cursor ready for printing. 


620-690: Choose and print recipe. 


700-770: Set up data for start of 
program. P$ holds names of 
objects. H$ holds symbols for 
ground. Line 750 moves the > 
symbols along each time. 


680 PRINT "PRESS RETURN TO PLAY" 
@4690 INPUT X$:CLS: RETURN 
RX700 DIM P$(4):DIM N(4)2DIM G14) 
RX710 DIM G$(3) 

720 FOR I=! TO 4:READ PS(T):NEXT 1 


760 NEXT I:LET GD=! 
770 RETURN 


Conversion lines 
mxxi20 IF INKEY$="" THEN GOTO 90 
A120 GET I$:1F I$="" THEN GOTO 90 
@ 120 [$=""s1F PEEK (-16384) 3127 THEN GET I$ 
@ (25 IF I$="" THEN GOTO 90 
Weird #FX15,! | 
¥¥530,550,560,650 Replace RND(1) with RND 
MB 530,550,560,650 Replace RND(1) with RND(0) 
KX570 LET C$=P$(R,1):LET P=! 
XX O10 PRINT AT ¥,X;A$:RETURN 


Was 


Y / \\ELLZT pay, 
Whim =f) oS 


Ue ae = 
TTT Si oT eat GD Come TD 


730 DATA "TOES OF NEWTS","EYES OF LIZARDS","ROOTS OF IVY","BRAINS OF BATS" 
740 LET H$=" }ese2 sess ess psssspssss" 
XxX750 FOR [=1 TO S:LET G$ (6-1) =MID$(H$,1,1+20) 


What will Superwitch do to you if 
you fail? Try adding comments 
and penalties to the game. 


AiO PRINT CHRS(19)3FOR LL=i TO Y:PRINTs 
NEXT!PRINT TAB(X) sA$:RETURN 

@ 410 VIAB(Y) sHTAB(X) :PRINT AS:RETURN 

WE 610 PRINT@ Y#32+x, A$; :RETURN 

A 620,690 Replace CLS with PRINT CHR$(147) 

@ 620,690 Replace CLS with HOME 

KX700 DIM P$14,15) DIM N(4):DIM G(4) 

KX710 DIM G#(5,24) 

KX750 FOR I=) TO StLET G$(6-1)=HS(1 TO 1+20) 


This is a sort of mini- 
adventure game. If you’ve 
never played an 
adventure before, the 
object is to escape. 


-Micropuzzle 


What’s happened? 
Where are you? y 
_ Everything appears fairly normal, ‘ me / 
though you do fee/4 bit sick. iit 
Better take a look round and see if 
‘ou can find out what’s going on. 

‘Hint: Try talking to your computer in two word sentences.) 


How the program Wo rks Lines 30-360: MAIN GAME SECTION 
10 GOSUB 13/0 10: Goes to subroutine to read in all the data. 


20 RESTORE:FOR I=1 TO R:READ DS:NEXT I 
30 CLO:PRINT “MICRO PUZZLE" 

£0 PRINT “saseessessee=" 

30 PRINT "YOU ARE ":D$ 


b0 IF R=20 AND F(9)=0 THEN PRINT "YOU ARE CONFRONTED BY 4 LARGE CAT" 


eee eo 70-90: Check if there i 
B80 IF L(1)=R AND F(I)=0 THEN PRINT "THERE IS A “sO$(I);" HERE." vhs 7M 


90 NEXT 


HOO PRINT:PRINT "YOU CAN GO "s ‘ 
110 FOR J=1 TQ LEN(RE{(R)) 100-130: Find which directions you 


i d print them. 
Bro 20 PRINT MIDS(R$(R) 1,1) can go in and print them 
| 130 NEXT I 


140 PRINT: PRIN] "~~----------------- rT 


20-50: Get a room description and Print it. 


i 


150 PRINT M$:LET M$="WHAT?" 150: Default message. 
1460 IF F(fé)=1 THEN PRINT "SELF DESTRUCT COUNTDOWN AT "sb 


170 PRINT "WHAT WILL YOU DO NOW": INPUT Q$ 
190 LET VS=""sLET WS=""sLET VB=O:LET OB=0sLET LI=LEN(Q$) sitmecuanmewnas’ Te 
190 FOR I=! TO LI 

5200 IF MID$(O$,1,1)=" " AND V$="" THEN LET V$=LEFT$(O$, I-1) 

R210 IF MIDS(O$, 14 oe AND V$C>"" THEN LET WS=RIGHT$(Q$,LI-I):LET I=L] 

220 NEXT I 


230 IF W="" THEN LET V$=0$ 
240 FOR I=1 10 V 

250 IF V$=H$(I) THEN LET VB=] 
260 NEXT 


280 IF VB=0 THEN LET VB=V+1 

290 IF W$>"" AND OB=0 THEN LET M$="THAT IS SILLY” 

300 IF WS="" THEN LET M$="1 NEED TWO WORDS" ea ee 
310 IF VB>V AND OB20 THEN LET N#="YOU CAN'T "+0$ 

320 IF VB>V AND OB=0 THEN LET M$="YOU DO NOT MAKE SENSE" 

330 IF VBCV AND OBO AND OBS=G THEN LET M$="YOU DQ NOT HAVE "+W$ 


350 IF VB>14 THEN GOTO 380 350-380: Goes to 
2340 ON VB GOSUB 480,550,550,550,550,550,550,550, 760,790, 790,860,920,970 | subroutine 
; - depending on 
370 GOTO 390 a 
XX380 ON VB-14 GOSUB 1080, 1100,1180,1250, 1320, 1340, 1370, 1400, 1460, 1510, 1960 


IF F(14)=0 AND L>O THEN GOTO 20 

IF Lé{ THEN LET M$="YOU HAVE RUN OUT OF TIME. THE MAXIMISER SELF DESTRUCTED! ” 

PRINT M#:PRINT "GAME OVER" 

IF L30 THEN GOSUB 1510 390-430: End of game. 


Type lif you want an 
STOP inventory (that is, a list of 


hat you are carrying). 
FOR 1=1 10 i acts 


IF W$=0$(1) THEN LET OB=] 
NEYT |] 440-470: Subroutine which checks if second 
RETURN word is on computer’s object list. 


PRINT "YOU ARE CARRYING: " 

FOR 1=1 10 6 

IF Lit}=25 THEN PRINT O$(1)3°,°3 480-540: Subroutine which tells you what 
NEXT I | you are carrying. 

LET M$=""sPRINT ; 

GOSUB 1350 

RETURN 


550 LET D=0 ire | 
Sb0 IF OB=0 THEN LET D=VB-2 vcr sASTntas ahont wittll GlaveuGl 


J70 IF QBY24 THEN LET D=0B-24 you want to go. 

580 IF R=19 AND D=6 THEN LET D=4 

290 IF R=20 AND D=6 THEN LET D=4 

600 IF R=20 AND D=S THEN LET D=3 

610 IF F19)=0 A 0 AND D=4 THEN LET M$="THE CAT WILL NOT LET YOU":RETURN 
R 
R 


Xx 620 IF AND 
630 IF AND 
640 LET F(i3)=¢ 

650 FOR I=1 TO RL 

Kx660 LET US=MIDS(RS(R) 1,1) 
670 IF (US="N" AND D=1 AND F(13)=0 
680 IF (U$="S" AND D=2 AND F{13)=0 
690 IF (U$="W" AND D=3 AND F(13)=0 
700 IF (U$="E" AND D=4 AND F(13)=0) 


710 NEXT | 


R=2 
1)=25 AND D=3 THEN LET M$=M1$:RETURN 

3)=0 THEN LET M$="AN ANGRY MOUSE BARS YOUR WAY": RETURN 
ET RL=LEN(R$(R) ) 


2¢ 
2 
(9 
2 
7 
( 


ND 
L{ 
F ( 
DEL 


If you are using 


a VIC 20, you will 
THEN LET R=R-G:LET Fi need extra memory 


) 
) THEN LET R=R+é:L&T diye for this game. 
) THEN LET R=R-L:LET F{ 
) THEN LET R=R+liLeT F¢ 


Have you played a few times 


90 LET M$="OkK" and decided you'll never be 


able to win? You can give 


IF F(13)=0 THEN LET M$="YOU CANNOT GO THAT WAY” yourself more time if you like 


740 IF Dé. THEN LET M$="GO WHERE?” AY DENORG Seamer Vane ee 


760 
770 
780 
£3790 
800 
810 
920 
830 
xx840) 
850 
960 
870 
880 
890 
Xx900) 
910 
Xx920 
X93 0 
940 
950 
960 
970 
980) 
990 
1000 
Xx1010 
1020 
1030 
1040 
1050 
1060 
1070 
RX10B0 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
R31 140 
1170 
1180 
1190 
1200 
1210 
1220 


Lin the middle of line 1910. 
RETURN 


LET M$="ARE YOU PRACTISING FOR THE OLYMPICS?" 

IF F(iQ)=1 AND (R=9 OR R=3) THEN LET M$="IT 15 TOO FAR TQ JUMP” 
RETURN 

IF QOB=B THEN LET M$=V$+" THE "+W$+M2$:RETURN 

IF QB>G THEN LET M$="I CANNOT GET THE “+W$:RETURN 

IF L{QOB)<>R THEN LET M$="IT IS NOT HERE" 

IF F(QB)<>0 THEN LET MS="WHAT "“+W$+"?" 

IF L{QB)=25 THEN LET M$="YOU ALREADY HAVE IT" 

IF OBO AND L{OQB)=R AND F(OB)=0 THEN LET L(OB)=25:LET M=MSS+w$ 
RETURN 

IF L(QB)<25 THEN RETURN 

LET M$="NOT REALLY! "sIF OB¢?1 THEN RETURN 

PRINT "PUT KEY WHERE" 

INPUT WS:IF WS>"" THEN GOSUB 440 

IF (OB=8 OR We="0N "+0$(8)) THEN LET MS=M4$:LET F(IS)=1:LET L(1)=R 
RETURN 

IF Fili)=0 AND L(7)=25 THEN LET FCQL)=1sLET F(S)=0:LET LiS)=0:LET MS=n5$ 
IF Fi(li)=1 AND L(7)=25 AND R=20 THEN LET F(9)=1:LET MS=M$+MO$ 

IF R=21 AND OB=24 THEN LET F(4)=0:LET M$="DUST SETTLES" 

IF QB=14 THEN GOSUB 970 

RETURN 

LET M$="NOTHING OF INTEREST" 

IF OB=16 AND R=12 THEN LET F(2)=0:LET M$="IT IS A MICRO - VCR" 

IF OB=24 AND R=21 THEN LET M$="SOMETHING INSIDE" 

IF QB=19 AND R=24 THEN GOSUB 1400 

IF QB=25 AND R=12 THEN LET M$=M7$ 

IF OB=7 THEN LET M$="IT pe A LARGE FLY" 

IF OB=9 AND R=20 AND F(9)=0 THEN LET M$="IT BITES AND SCRATCHES!” 
IF QB=4 THEN GOQSUB i, 

IF OB=1 AND L(1)=25 THEN LET M$="THE NUMBER ‘111° IS ENGRAVED ON IT” 
IF QB=6 AND L(6)=25 THEN LET M$="THERE 1S A BIG RED BUTTON" 

RETURN 

LET M$=NG$:1F OB=4 AND L{OB)=25 THEN LET M$=MF$ 760-1500: These are subroutines for the 


verbs used in the program. Look for the 
RETURN lines which say RETURN to see where 


IF OB<>5 THEN LET M$="CANNOT TIE "“+W$:RETURN one ends and another starts. 
IF L(5)¢25 THEN RETURN 
LET WS=""sPRINT "TIE THE THREAD TO WHAT" 


INPUT WS Unless you are using a 
Spectrum, you can leave 


IF We)"" THEN SOSUB 446 out all the LETs if you like. 
LET M$="CANNOT TIE IT TQ "+W$ 
IF OB=13 AND R=9 THEN LET F(S)=1:LET L(S)=O0:LET MS=M8$ 


RETURN He, 
AND F(S)=0 THEN LET MS="IT IS NOT TIED TO ANYTHING!” 
AND R=9 AND F(S)=1 THEN LET ReB:LET F(10)=OsLET MS="OK"sRETURY/ @_ 
| : of 


AND R=8 AND F(S)=1 THEN LET R=9:LET F(1O)=1:LET M$="0K" 
=!3 AND R=9 THEN LET M$="1T IS TOO SMOOTH TO CLIMB" 
AND R=19 THEN LET OB=30:GQSUB 550 fs 


eo 
Jt ‘a » ; 
ail @. */@ 7 


x 


1230 
1240 


oe, 
[290 


1240 


127) 


1280 ai 


1290 
1300 
1310 
1520 
1330 
Rx 1540 
Xx1 350 
1560 
RX 13570 
1380 
1390 
1400 
L410) 
{420 
1430 
1440 
1450 
Rx 1440 
RE 1470 
1480 


1500 


IF-QB=W AND R=20 THEN LET OB=29:G0SUB S50 

copii This program is not 
IF OB(}6 OR L(6)<>25 THEN RETURN compel aan teens 
LET WE=""sPRINT “POINT IT AT WHAT" of the others so as not to 


2 give you too many clues 
INPUT WS about the game. Try 
TE Wo3"" THEN GOSURB 440 working out what all the 
IF OB=22 THEN LET F(6)=! " plapedwala? 


LET M$="VERY WELL" 

RETURN 

IF OB=3 AND L(OB)=25 THEN LET L(QB)=0:LET M$="MUNCH CHOMP” 

RETURN 

IF (OB=19 OR OB=17) AND R=24 AND L(1)<25 THEN LET MS=M9$:LET L=L-12:LET F(16)=1 
IF (QB=19 OR OB=17) AND R=24 AND L{1)=25 THEN LET F(12)=1:LET MS=MH$ 

RETURN 

IF OR=3 AND R=7 AND LiQOB)=25 THEN LET F(S)=1:LET L(OB)=O:LET B=B+L:LET MS=MA$ 
IF L(OB)=25 THEN LET L{GB)=R:LET M$="DONE" 

RETURN 

IF R¢>24 THEN LET N$="NOTHING HERE 70 TYPE ON'":RETURN 

IF Fil2)=0 THEN LET MS="THIS TERMINAL IS NON-ACTIVATED’: RETURN 

LET M$="THE davies ECHDES : "+W$ 

IF QOB=18 THEN LET N$="CODEWORD ACCEPTED":LET Fil7)= 

IF QB=20 THEN rey satin Ip" 

RETURN 

IF R=14 AND OB=11 AND L(B)=22 THEN LET L(B)=14:LET MS=MBS+MC$: RETURN 

IF R=14 AND OB=11 AND L(8)=14 THEN LET L(8)=22:LET M$=MBS+MD$ 

IF F(15)=1 THEN LET L{ 151 (8) 

IF QB=21 AND F(6)=1 AND L(6)=25 AND R=18 AND F(17)=1 THEN LET B=BtlOsLET M$=MES$:LET F(14)=1 
RETURN 


S10 LET 5=0:FOR I=1 TO & 1510-1560: Scoring 


IF L{I)=25 THEN LET S=5+1 subroutine. 


U0 NEXT I 


ET S=S+B:PRINT “YOUR SCORE = "35 


v0 IF F(14)=0 THEN PRINT "PRESS RETURN TO CONTINUE": INPUT Q$ 


1576 
X21 580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
A700 
1710 
1726 
1730 
1740 


RETURN 


LET V=20sLET W=31:LET 6-8 | 
DIM RS(24):DIM OS(W):DIN HE(V) 1500 Sake oer 
DIM L(6):DIM F417) 


DATA “INSIDE THE MOUSEHOLE - IT IS VERY DARK IN HERE” 
DATA "AT A MOUSEHOLE IN A CORNER OF THE ROOM","ON THE EDGE OF A HIGH TABLE" 

DATA "AT THE BACK OF A HALLWAY","IN A STORAGE ROOM","IN THE KITCHEN” 

DATA "FURTHER DOWN A DARK SMELLY TUNNEL","BY A RAILWAY SIDING" 

DATA "AT THE BASE OF A TALL PLASTIC TREE ON THE EDGE OF A HIGH TABLE” 

DATA “OUTSIDE THE OPEN DOOR OF AN ODDLY PROPORTIONED HOUSE 

DATA "IN A YELLOW FRONT ROOM","BY A TV SET AND A RECORDER" 600.1870: Data lines 
DATA "AT THE END OF A DARK TUNNEL" 

DATA "BY A LARGE SWITCH CONNECTED TO THE RAILWAY TRACKS" 

DATA "ALONGSIDE THE WINDING TRACK" 

DATA "AT THE END OF THE LINE-THE TRACK DISAPPEARS THROUGH 4 HOLE IN THE WALL" 
DATA "BELOW A WHOLE WALL OF OVERSIZED VIDEO SCREENS" 

DATA "STANDING ON THE MAXINISER PAD" 

DATA "ON A SHELF OF DISTURBING APPARATUS - THERE IS A STOOL NEARBY" 

DATA "ON A SHORT STEP STOOL" 


1750 DATA 
i760 DATA 
1770 DATA 
1780 DATA 
1790 DATA 
1800 DATA 
1810 DATA 
1820 DATA 
{a30 DATA 
1840 DATA 


4/850 DATA 


1860 DATA 
1870 DATA 


"ON THE FLOOR OF AN OVERTURNED BOX OF BROKEN ELECTRONIC PARTS” 

"AT A HOLE IN THE WALL FROM WHICH A RAILWAY LINE EMERGES” 

"AT THE BASE OF A SWIVEL CHIAR" 

"STANDING ON A COMPUTER TERMINAL WITH A SECRURITY LOCK" 
16,12,3,21,5,17, 19,14 

"T8960" NYS" YW ME’ MU DY JUMP" "GET" "TAKE™, "PUT", "OPEN! 
"EXAMINE", "READ", "TIE", "CLIMB", "POINT", "EAT", "UNLOCK", "LEAVE" , "TYPE" 
"PRESS" "SCORE", "SE" "SW", "SE" "SWE" "WE" "SW" NS" "NS" "NE" "NWS 
"EW" "NW YNS" "NE", "EW" "WS". "S* "NED" MEWUD "EW" "EW" “NEM! 
"NW" "KEY", "CASSETTE", "CHEESE", "PAPER" , "THREAD", "REMOTE-CONTROL” 
"BOTTLE", "TRAIN", "CAT", "DOOR", "SWITCH", "TUNNEL", "TREE", "HOLE", "MOUSE" 
"VIDEO" , "COMPUTER" , "GROCER" , "TERMINAL" "111", "BUTTON" , "NAXIMISER" 
"TV" "BOX", "NORTH", "SOUTH", "WEST", "EAST", "UP", "DOWN" , "STOOL" 


1880 FOR [=1 TO 24:READ D$:NEXT IsFOR T=1 TO G:READ L(1):NEXT I 

1890 FOR T=! TO VeREAD H${I):NEXT T:FOR [=1 TO 24:READ RE(LT):NEXT I 

1900 FOR [=1 TO WiREAD OS{T)sNEXT IsLET F(O)=2:LET F(4)=1:LET F(2)=! 
RX1910 LET R=L1sLET B=O:LET L=100:LET M#="YOU AWAKEN,.":LET MH#="TERMINAL ACTIVE" 
21920 LET Mi$="YOU CANNOT TAKE THE KEY THROUGH":LET M2$=" EH? VERY FUNNY!" 
SX1950 LET M3$="YOU HAVE THE "sLET M4$="WELL DONE! ":LET MG$="NOTHING OF INTEREST" 
721940 LET M5$="8 LOUDLY BUZZING FLY FLIES GUT":LET MB$="THE TRAIN CHUGS " 
RX1950 LET M7$="IT IS JUST A BOX WITH PHOTO STUCK ON"SLET M9$="#! TAMPER #!" 
1960 LET M8$="IT 15 SECURELY TIED. ":LET MO$=" AND THE CAT CHASES AFTER IT!" 
2X1970 LET MA$="THE MOUSE RUNS OFF WITH IT.":LET MPS="TERMINAL PASSWORD="+03 (18) 
1980 LET MC$="INTO SIGHT AND STOPS HERE":LET MD$="AWAY AND INTO A TUNNEL" 
31990 LET ME$="THE MAXIMISER BEAM WORKS, YOU ARE RETURNED TO NORMAL SIZE" 

2000 RETURN 


1880-1900: Read in data. 


1910-2000: Set up messages. 


IMPORTANT NOTE 
for Commodore users. 
If you are using a C64 ora 
VIC 20, you must leave out 
the LETs in lines 400, 1340, : 
1370 and 1490. : ZZ 

If you are using a C64, you 

must leave out all the 


Conversion lines 
4 3) Replace CLS with PRINT CHR$(147) 
@ 30 Replace CLS with HOME 


... FORSPECTRUM USERS %% 
120 PRINT RE(R Ts", "s 
190 FOR I=1 TQ Li-! 
200 IF Q$(]}=" " "BND V$="" THEN LET V$=0$( TO I[-1) 
210 TF Q#(T+i)¢3" " AND V$C>"" THEN LET WS=Q$(1+1 TO ) 
250 IF LEN(W$) C7 THEN LET V$=V$+" "sGOTO 235 
560 GOSUB 480#(VB=1)+550e(VB 71 AND VBS9)+7604(VB=9) +7908 (VEH10 OR VB=t1) 
+B0# (VB=12) +9208 (VB=13) +9708 (VB=1 4) 
380 GOSUB 1080#(VB=15 Ee ee 
Side ee ieee alba. teieust *(VB=? 


spaces in lines 1490, 1700 
and 1850. 


eLET [=Li-1 


$1 2504 (VB=18) +1320 (VB=19) +1340 (VB=20) 
S)+LG10# (VB =24) +1560% (VB=25) 


440 TF LEN(WS)<14 THEN LET WS=W$+" "36070 “MM 
re FOR =i TO W 
660 LET US=RF(R, 1) 


900 IF (OB=8 OR WS="0N "+0$(8) +" 

1580 DIM R¥(24,4):DIM OS(W,14)sDIM HS(Y,7) 
i910 LET R=l1:LET BeO:LET L=i0d:LET M$="YOU AWAKEN. 

Lines 620,790,840,920,930, 1030, 1080,1160,1340,1350, 137 
Replace M1$ to MH$ in these lines with the text in lines 
eg. 620 IF R=2 AND L(1)=25 AND D=3 
Leave cut lines 1920 to 1990 


" THEN LET M$="WELL DONE! "sLET F(fS)=1:Le? LOL) =R 


1460, 1470, 1490 
1910 to 1990 


16 THEN LET M$="YOU CANNOT TAKE THE KEY THROUGH":RETURN 
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